home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / PGPwithYAM.lha / PGPwithYAM / EncryptMail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-13  |  1KB  |  47 lines
  1. /* Encrypt a mail with Phil's PGP for YAM
  2.  * $VER: EncryptMail.rexx 1.4 (13-Jul-97) by Michael Praschl
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. userid     = 'Michael Praschl'    /* To encrypt mails with your personal key, too, */
  8.                                   /* so you can read sent messages */
  9. pgppath    = 'PGP:bin/pgp'
  10.  
  11. pgpcommand = '-eat'
  12.  
  13. CALL CLOSE 'STDOUT'
  14. CALL CLOSE 'STDIN'
  15. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  16. CALL PRAGMA '*','STDIN'
  17. CALL OPEN 'STDOUT','*'
  18.  
  19. IF ~SHOW('Ports','YAM') THEN DO
  20.   ADDRESS 'COMMAND'
  21.   'Run YAM:YAM NOCHECK HIDE'
  22.   'SYS:RexxC/WaitForPort YAM'
  23. END
  24. IF SHOW('Ports','YAM') THEN DO
  25.   ADDRESS 'YAM'
  26.   GETMAILINFO FILE
  27.   mailfile = RESULT
  28.  
  29.   ADDRESS 'COMMAND'
  30.   'YAM:Rexx/splitmail' mailfile
  31.  
  32.   pgppath '>RAM:keys -kv'
  33.   if exists('ram:keys') then 'YAM:Rexx/SelectPGPKey RAM:keys OUTFILE RAM:selected'
  34.  
  35.   if exists('ram:body') then
  36.     if exists('ram:selected') then DO
  37.       pgppath pgpcommand 'ram:body' userid '-@ram:selected'
  38.       if exists('ram:head') then
  39.         if exists('ram:body.asc') then
  40.           'join ram:head ram:body.asc to' mailfile
  41.     END
  42.  
  43.   'delete >NIL: ram:head ram:body ram:body.asc ram:keys ram:selected'
  44.  
  45. END
  46.  
  47.